home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / os2 / mtic132o.zip / MFM_ENG.RAR / ANN_BODY.MFM < prev    next >
Text File  |  1996-09-09  |  8KB  |  215 lines
  1. ;*****************************************************************
  2. ; MegaTIC     ANNOUNCE TEMPLATE FILE
  3. ; for MegaTIC Copyright (c) by DiMeS 1995,96. All rights reserved.
  4. ;*****************************************************************
  5. ;
  6. ; ■ KEYWORDS
  7. ;
  8. ; The doublepoint ":" significates the start of a new chapter, followed by
  9. ; a keyword.
  10. ;
  11. ; :ANNHEADER  (1) The header will be displayed at the beginning of 
  12. ;                 an announcement
  13. ; :AREASTART  (2) This header will introduce the start of a filearea
  14. ; :FILELOOP   (3) With this format the files in a filearea are displayed
  15. ; :AREAEND    (4) The end of a filearea
  16. ; :TOTALEND   (5) The total end of an announcement
  17. ; :ANNFOOTER  (6) The footer is linked at the end of the announcement
  18. ;
  19. ;
  20. ; ■ MACROS
  21. ;
  22. ; You can use the following macros to create announcements
  23. ;
  24. ; Macroname           Function                    Chapter Example
  25. ;
  26. ; @year               Current year                all     1996
  27. ; @monthname          Name of month               all     June
  28. ; @month              Month                       all     06
  29. ; @dayname            Name od day                 all     Tuesday
  30. ; @day                Day                         all     02
  31. ; @sysopname          Name of Sysop               all     Dirk Mertens
  32. ; @bbsname            Name of BBS                 all     OxyGEN BBS
  33. ; @location           Location of BBS             all     Muenster
  34. ; @filterdlc          filter out downloadcounter  all    
  35. ; @filename           Name of file                   3    MTIC121O.RAR
  36. ; @filesizekb         Filesize in kb                 3    653
  37. ; @filesize           Filesize                       3    654.284
  38. ; @filedate           Filedate                       3    07/12/96
  39. ; @fileday            Day of filedate                3    12
  40. ; @filemonth          Month of filedate              3    07
  41. ; @fileyear           Year of filedate               3    1996
  42. ; @filedesc           1st line of description        3    MegaTIC v1.21
  43. ; @overflow           other lines of desc.           3    (c) Copyright 1995,
  44. ; @areaname           Name of filearea             2,3,4  MEGATIC
  45. ; @areadesc           Description of filearea      2,3,4  Tools for MegaTIC
  46. ; @areanum            BBS-Number of filearea       2,3,4  264
  47. ; @areasum            Numer of listed files          4    12
  48. ; @areasize           Sum of filesizes               4    1.243.435
  49. ; @totalsum           Number of all files           5,6   143
  50. ; @totalsize          Sum of all filesizes          5,6   12.234.234
  51. ; @totalareas         Number of done fileareas      5,6   25
  52. ; @mtversion          Current MegaTIC-Version      all    MegaTIC+ v1.21
  53. ; @origin             Origin-Line                    6    * Origin: MegaTIC !
  54. ; @akatouse           AKA for this announcement    all    2:2449/528
  55. ; @anngroup           Name of announcegroup        all    2449-NEWFILES
  56. ;
  57. ;
  58. ; ■ FUNCTIONS
  59. ;
  60. ; Following functions can be used to display and format the output
  61. ;
  62. ; Syntax:
  63. ;   str  : all characters are allowed for input
  64. ;   num  : enter only digits here
  65. ;   @fkt : you can use cascaded (recurse) functions here
  66. ;   def  : default when no parameter is given
  67. ;   x|y  : either x or y (xor)
  68. ;   []   : optional parameters
  69. ;
  70. ;------------------------------------------------------------------------
  71. ;
  72. ; @format(in,fmt,just,fill)      Formats a string
  73. ;
  74. ;  Syntax:    @format(@fkt|str,val,[L|C|R],[@fkt|str]);
  75. ;
  76. ;  Params:    in:      string to format
  77. ;             format:  format string to this length
  78. ;             just:    orientation L=left R=right C=centered   def:L
  79. ;             fill:    fill up string with this characters     def:" "
  80. ;
  81. ;  Example:   Call     @format(@day,12,R,-)
  82. ;             Work     format daynumber "09" to a length of 12 chars
  83. ;                      justified right and fill up with "-" 
  84. ;             Result   ----------09
  85. ;
  86. ;  Example:   Call     @format(,20,L,@sysopname)
  87. ;             Work     format to 20 characters and fill with @sysopname
  88. ;                      which is "Dirk Mertens"
  89. ;             Result   Dirk Mertens Dirk Me
  90. ;
  91. ;------------------------------------------------------------------------
  92. ;
  93. ; @maxdesclen(len)               Maximum width of description
  94. ;
  95. ;  Syntax:    @maxdesclen([num])
  96. ;
  97. ;  Params:    len:     sets the maximum width of description to "len" 
  98. ;                      def:78
  99. ;  Example:   Call     @maxdesclen(10)
  100. ;             Result   sets the maximum width of description to 10 chars
  101. ;
  102. ;------------------------------------------------------------------------
  103. ;
  104. ; @upper(in)                     Convert a string to uppercase
  105. ;
  106. ;  Syntax:    @upper(@fkt|str)
  107. ;
  108. ;  Params:    in:      string to convert
  109. ;
  110. ;  Example:   Call     @upper(Dirk Mertens)
  111. ;             Work     convert "Dirk Mertens" to uppercase
  112. ;             Result   DIRK MERTENS
  113. ;
  114. ;------------------------------------------------------------------------
  115. ;
  116. ; @copy(in,from,count)           Copy part of a string
  117. ;
  118. ;  Syntax:    @copy(@fkt|str, @fkt|num, @fkt|num)
  119. ;
  120. ;  Params:    in:      sourcestring
  121. ;             from:    copy from this position
  122. ;             count:   copy count characters
  123. ;
  124. ;  Example:   Call     @copy(Dirk Mertens,2,5)
  125. ;             Work     copy 5 chars from position 2
  126. ;             Result   irk M
  127. ;
  128. ;------------------------------------------------------------------------
  129. ;
  130. ; @overflow                      Sets the horizontal start of the 
  131. ;                                extended filedescription.
  132. ;  Syntax:    @overflow
  133. ;
  134. ;  Examples:
  135. ;
  136. ;@overflow                       Start at left margin
  137. ;             @overflow          Start at position 13
  138. ;
  139. ;------------------------------------------------------------------------
  140. ;
  141. ; @pos(sub,source)               Find position of a substring in a string
  142. ;
  143. ;  Syntax:    @pos(@fkt|str, @fkt|str)
  144. ;
  145. ;  Params:    sub:     string to find
  146. ;             source:  find substring in this string   
  147. ;
  148. ;  Example:   Call     @pos(e,tuesday)
  149. ;             Work     searches "e" in "tuesday"
  150. ;             Result   3
  151. ;
  152. ;------------------------------------------------------------------------
  153. ;
  154. ;********************** EXAMPLE FOR ANNOUNCE HEADER ********************
  155. :ANNHEADER
  156.  
  157. @format(The following files have reached on,78,C)
  158. @format("@dayname, @month.@day.@copy(@year,3,2) at @bbsname",78,C)
  159. @format(for the group @anngroup:,78,C)
  160.  
  161. ;
  162. ;********************** EXAMPLE FOR AREA START *************************
  163. :AREASTART
  164. ;
  165. Area: @format(@areaname [@areadesc],70,L)
  166. @format(,78,L,-)
  167. ;
  168. ;********************** EXAMPLE FOR FILE LOOP **************************
  169. :FILELOOP
  170. ;
  171. ; Example 1: Display fileinfos with full filesize
  172. ;@format(@filename,12,L) @format(@filesize,12,R) @filedate @filedesc
  173. ;                                   @overflow
  174. ;
  175. ; Example 2: Display fileinfos with kb-filesize
  176. @format(@filename,12,L) @format(@filesizekb,7,R)k @filedate @filedesc
  177.                                @overflow
  178. ;
  179. ; Example 3: Display fileinfos vertical
  180. ;File: @filename
  181. ;Size: @filesize bytes
  182. ;Date: @fileday.@filemonth.@fileyear
  183. ;Desc: @filedesc
  184. ;      @overflow
  185. ;
  186. ;********************** EXAMPLE FOR AREA END ***************************
  187. :AREAEND
  188. ;
  189. @format(,78,L,-)
  190.   @areasize byte(s) in @areasum file(s)
  191. ;
  192. ;********************** EXAMPLE FOR TOTAL END **************************
  193. :TOTALEND
  194. ;
  195.  
  196. @format(,78,L,=)
  197.   Total of @totalsize bytes in @totalsum file(s)
  198. ;
  199. ;********************** EXAMPLE FOR ANNOUNCE FOOTER ********************
  200. :ANNFOOTER
  201.  
  202.  Filerequests are possile 23 hours a day.
  203.  
  204.  Use the magic FILES to frequest a complete filelist of my system.
  205.  
  206.  Seeya,
  207.    @copy(@sysopname,1,@pos( ,@sysopname)) (@akatouse)
  208.  
  209. --- using @mtversion
  210.  @origin
  211. :
  212. ;****************************************************************
  213. ; END OF TEMPLATE EXAMPLE
  214. ;****************************************************************
  215.